Chip 1997 March/CHIP Mart 1997.iso/SurfCam/SURFCAM.Z/HEI151S.M3

Text File | 1996-04-01 | 5KB | 212 lines

name Heidenhain TNC 151 conversational Sub Program

O >80
  a 80
e >8
i 20
N >3 ""
t >2
u >2
L 00
l +->3.>4 L
C >2
d >2.1
X +->3.>4
Y +->3.>4
Z +->3.>4
G >2
p 00
  I ->3.>4
  J ->3.>4
  A
  B
  Q ->3.>4
H 00 Z
W 00
R ->3.>4
  P ->3.>4
F >3
f >3 F
  K ->3.>4
q >3
M >2
S >4
s ->3.>4
z ->3.>4 Mult -1
Q ->3.>4 Mult -1
w ->3.>4

ModalLetters Z                        # List of letters that are modal

ModalGs                               # List of g codes that are modal

Sequence#s N 1 1 0                    # Char, freq, incr & start
First#? Y                             # Y or N  'Output 1st sequence no.

HCode X                               # X or X U  'Horizontal char.
VCode Y                               # Y or Y V  'Vertical char.
Dcode Z                               # Depth char.
FeedCode F                            # Feed rate char.

Comment ( )                           # Begin End comment char.

Spindle 3 4 5                         # Cw, ccw & stop m codes
Coolant 8 9 8                         # On, Off & Mist m codes
DComp 41 42 40                        # Left, Right & Cancel m codes
LComp 43 49                           # On & Off codes

CtrIncremental? Y                     # Y or N  'Inc or abs I & J
ByQuadrants? N                        # Y or N  'Break arcs at quadrants

CtrCode I J                           # I J or R or I J K L
Helical? N
MaxRad 999 .010

Feed L10                            # Linear move
Rapid L10 f9998                   # Rapid positioning word

Inc/Abs G 91 90                       # Inc & Abs char. & values
Inch/MM 70 71                         # Inch & Metric g codes

Subs1st? N                            # Y or N 'Orders main & sub programs

RenumSubs? Y                          # Y or N  'Resets sub's sequence no.

UppercaseComments? Y                  # Y or N 'Require uppercase comments


Drill 7                               # Drilling canned/manual cycle
d1
d1.1 s[-2]
d1.2 z[Depth]
d1.3 Q[Depth]
d1.4 w[Dwell]
d1.5 F[FRate]
L10 X[LastH] Y[LastV] Z[VClear] R0 F9998 M99
L10 X[H] Y[V] Z[VClear] R0 F9998 M99
end

Peck 7                                # Pecking canned/manual cycle
d1
d1.1 s[-2]
d1.2 z[Depth]
d1.3 Q[VBite]
d1.4 w[Dwell]
d1.5 F[FRate]
L10 X[LastH] Y[LastV] Z[VClear] R0 F9998 M99
L10 X[H] Y[V] R0 F9998 M99
end

Tap 6                                 # Tapping canned/manual cycle
d2
d2.1 s[-2]
d2.2 z[Depth]
d2.3 w[Dwell]
d2.4 F[FRate]
L10 X[LastH] Y[LastV] Z[VClear] R0 F9998 M99
L10 X[H] Y[V] R0 F9998 M99
end

StartCode                             # Start of the program
   O[VAL4] i0
O[Program#] i[unitmode]
End

1stToolChange                         # First tool change
t[Tool] l0 R[ToolRad]
u[Tool] H[Lcomp] S[Speed]
L10 Z[ToolD] R0 F9998
L10 X0 Y0 R0 F9998 M3
L10 Z0 R0 M[Cool]
End

Infeed                                # Enable cutter comp
L10 X[H] Y[V] G[Side] F[FRate]
end

Outfeed                               # Disable cutter comp
L10 R0 X[H] Y[V]
Z[D]
end

ToolChange                            # Secondary tool changes
L10 Z[ToolD] R0 F9998
t[Tool] l0 R[ToolRad]
u[Tool] H[Lcomp] S[Speed]
L10 Z0 R0 F9998
L10 X0 Y0 R0 F9998 M3
L10 Z0 R0 M[Cool]
End

CwCode                                # CW circular move
C1 X[HCtr] Y[VCtr]
C0 X[H] Y[V] G2 W0
end

CcwCode                               # CCW circular move
C1 X[HCtr] Y[VCtr]
C0 X[H] Y[V] G3 W0
end

Between                               # Between the main and sub programs
L10 Z[ToolD] R0 F9998
M30
e[Program#] i[unitmode]
End

SubCall                               # Call a sub program
  L10 X[H] Y[V] W0
  L10 Z[D] R0 W0
d7.0 p0
d7.1 X0
d7.2 Y0
d7.3 Z0
q[Sub]
End

SubStart                              # Start of the sub program
ask [Val1] " Enter X subroutine offset amount"
ask [Val2] " Enter Y subroutine offset amount"
ask [Val3] " Enter Z subroutine offset amount"
O[Sub] i[Unitmode]
End

SubEnd                                # End of the sub program
L10 X0 Y0 W0
L10 Z0 R0 W0
d7.0 p0
d7.1 X[Val1]
d7.2 Y[Val2]
d7.3 Z[Val3]
e[SUB] i[unitmode]
End

Replace "O" with "BEGIN PGM "
Replace "i70" with "INCH"
Replace "i71" with "MM"
Replace "e" with "END PGM "
Replace "G41 " with "RL "
Replace "G42 " with "RR "
  #Replace "R0 " with "R "
Replace "t" with "TOOL DEF "
Replace "u" with "TOOL CALL "
Replace "W " with "R F M "
Replace "M0" with "STOP"

Replace "G2 " with "DR- "
Replace "G3 " with "DR+ "
Replace "C1 " with "CC "
Replace "C0 " with "C "

Replace "d" with "CYCL DEF "
  #Replace "EF 0.0 " with "EF 1.0 T"
  #Replace "EF 1.0" with "EF 1.0 T"
  #Replace "EF 2.0" with "EF 2.0 G"
Replace "s" with "A "
Replace "z" with "T "
Replace "Q" with "Z "
Replace "w" with "V "
Replace "q" with "CALL PGM"
Replace "p" with "POINT ZERO"
  replace " a" with ""